home *** CD-ROM | disk | FTP | other *** search
RISC OS BBC BASIC V Source | 1995-06-14 | 21.9 KB | 799 lines |
- > <Statistix$Dir>.!Statistix
- "Hourglass_Smash":
- " at line: ";
- "<Statistix$Dir>.ShellLibRT"
- "<Statistix$Dir>.DrawLib"
- "Hourglass_On"
- "Wimp_SlotSize",-1,-1
- progsize%
- pagesize%=1<<10
- freespace%=&8000+progsize%
- =freespace%+pagesize%
- =freespace%
- shell_HeapManagerInit("<Obey$Dir>.",freespace%)
- shell_Init
- 5task%=
- shell_WimpInit_I(200,"Statistics Program")
- PROCshell_TraceInit("")
- PROCshell_TraceOn
- shell_ResourcesInit
- app_init
- _closedown% =
- changed% =
- shell_Error
- "Hourglass_Off"
- shell_Action(
- shell_Poll_I(0,task%))
- _closedown%
- shell_Exit:
- app_init
- dat1$(1000),dat2$(1000),word$(20):
- cat%(2000),adr1% 12000,adr2% 12000
- T(230,5)
- catra%=2:cat=0
- '6Data1%=
- :Data2%=
- :base%=66:topbase%=88:fil$="File"
- SetUp_Menus
- SetUp_Windows
- SetUp_IconBar
- ===== Menu_Setup routines ======================================
- SetUp_Menus
- void%
- shell_CreateWindowStatic("xfer_send",xfer%)
- shell_CreateWindowStatic("xfer_sendr",xferd%)
- shell_CreateWindowStatic("Inf1",inf%)
- shell_CreateWindowStatic("Fr",fr%)
- shell_CreateWindowStatic("SD",sd%)
- 6FMenuHandle_IconBar%=
- shell_MenuNew(
- shell_MessageNoArgs("MTIBar"))
- 7IMenuItem_Info% =
- shell_MenuAdd(0,
- shell_MessageNoArgs("Info"),"")
- 8Yvoid% =
- shell_MenuAdd(0,
- shell_MessageNoArgs("Quit"),"_MenuSelect_Quit")
- shell_AttachMenuDBox(MenuItem_Info%,"progInfo","_PreOpenInfo","")
- ;,MenuHandle_data1% =
- shell_MenuNew(fil$)
- <MMenuItem_Pa% =
- shell_MenuAdd(0,
- shell_MessageNoArgs("Param"),"_Pa")
- =NMenuItem_Fr% =
- shell_MenuAdd(0,
- shell_MessageNoArgs("Frequ"),"_Fr1")
- >3MenuItem_Save% =
- shell_MenuAdd(0,"Save","")
- shell_AttachSubMenu(MenuItem_Pa%,inf%,"_Pa")
- shell_AttachSubMenu(MenuItem_Fr%,fr%,"_Fr1")
- shell_AttachSubMenu(MenuItem_Save%,xfer%,"_D1")
- C,MenuHandle_data2% =
- shell_MenuNew(fil$)
- DNMenuItem_Pa% =
- shell_MenuAdd(0,
- shell_MessageNoArgs("Param"),"_Pa2")
- EJMenuItem_Sd% =
- shell_MenuAdd(0,
- shell_MessageNoArgs("SD"),"_Sd")
- F3MenuItem_Save% =
- shell_MenuAdd(0,"Save","")
- shell_AttachSubMenu(MenuItem_Pa%,inf%,"_Pa2")
- shell_AttachSubMenu(MenuItem_Sd%,sd%,"_Sd")
- shell_AttachSubMenu(MenuItem_Save%,xfer%,"_D2")
- KEMenuHandle_data3% =
- shell_MenuNew(
- shell_MessageNoArgs("Frequ"))
- LKMenuItem_Render% =
- shell_MenuAdd(0,
- shell_MessageNoArgs("dis"),"_Re")
- M3MenuItem_Save% =
- shell_MenuAdd(0,"Save","")
- shell_AttachSubMenu(MenuItem_Save%,xfer%,"_D3")
- PDMenuHandle_Dr% =
- shell_MenuNew(
- shell_MessageNoArgs("Draw"))
- Q4MenuItem_Saved% =
- shell_MenuAdd(0,"Save","")
- shell_AttachSubMenu(MenuItem_Saved%,xferd%,"_D4")
- SetUp_Windows
- shell_CreateWindowStatic("Data1",data1%)
- shell_CreateWindowStatic("Data2",data2%)
- shell_CreateWindowStatic("Data3",data3%)
- shell_CreateWindowStatic("Mainw",mainw%)
- shell_CreateWindowStatic("Datin",datin%)
- shell_CreateWindowStatic("Chart",chart%)
- shell_CreateWindow("Message",loaded%)
- shell_CreateWindowStatic("datgen",datgen%)
- shell_AttachDataLoad(mainw%,31,&FFF,"_CSVload",
- shell_AttachDataLoad(-1,-1,&FFF,"_CSVload",
- shell_AttachDataLoad(mainw%,31,&DFE,"_CSVload",
- shell_AttachDataLoad(-1,-1,&DFE,"_CSVload",
- shell_AttachDataSave(xfer%,2,100,&DFE,1,"_dosave")
- shell_AttachDataSave(xferd%,2,100,&AFF,1,"_dosavedr")
- shell_AttachMenu(data1%,-1,MenuHandle_data1%,0,0,0)
- shell_AttachMenu(data2%,-1,MenuHandle_data2%,0,0,0)
- shell_AttachMenu(data3%,-1,MenuHandle_data3%,0,0,0)
- shell_AttachMenu(chart%,-1,MenuHandle_Dr%,0,0,0)
- shell_AttachClickSelect(mainw%,-1,"_ClickSelect_mainw")
- shell_AttachClickSelect(datgen%,-1,"_ClickSelect_datgen")
- shell_AttachClickSelect(datin%,-1,"_ClickSelect_datin")
- shell_AttachClickSelect(fr%,-1,"_ClickSelect_Fr")
- shell_AttachUserRedraw(chart%,"_UserRedraw_Mainw")
- shell_AttachHelpTag(fr%,9,"Fre")
- shell_AttachHelpTag(fr%,10,"Fre")
- shell_AttachHelpTag(fr%,11,"Fre")
- shell_AttachHelpTag(mainw%,31,"drag")
- shell_AttachHelpTag(mainw%,30,"marks")
- shell_AttachHelpTag(mainw%,32,"Doub")
- shell_AttachHelpTag(mainw%,33,"Random")
- shell_AttachHelpTag(mainw%,66,"Win")
- shell_AttachHelpTag(mainw%,67,"Win")
- shell_AttachHotKey("F3",
- ,"xfer_send",xfer%,"","")
- ===== IconBar_SetUp routines ===================================
- SetUp_IconBar
- |Ssicon=
- shell_Iconbar(-1,"!"+
- shell_GetAppName,"",120,MenuHandle_IconBar%,0,0,0)
- shell_AttachHelpTag(-1,sicon,"iconbar")
- shell_AttachClickSelect(-1,sicon,"_ClickSelect_IconBar")
- ===== Dialog_PreOpen routines ==================================
- _PreOpenInfo(wh%)
- shell_IconPutData(wh%,0,
- shell_MessageNoArgs("progInfo0"),0)
- shell_IconPutData(wh%,1,
- shell_MessageNoArgs("progInfo1"),0)
- shell_IconPutData(wh%,2,
- shell_MessageNoArgs("progInfo2"),0)
- shell_IconPutData(wh%,3,
- shell_MessageNoArgs("progInfo3"),0)
- _ClickSelect_IconBar(wh%,icon%)
- shell_OpenWindowStatic(mainw%)
- _ClickSelect_mainw(wh%,icon%)
- shell_IconPutData(loaded%,1,"2 files already loaded!",
- icon%=30
- Data2%
- Data1%
- shell_OpenWindowDynamic("Message","","")
- Data1%
- Data2% Data2%=
- shell_OpenWindowStatic(datin%)
- Data1% Data1%=
- shell_OpenWindowStatic(datin%)
- icon%=32
- Data2%
- Data1%
- shell_OpenWindowDynamic("Message","","")
- dd%=
- :rn%=
- Data1%
- Data2% Data2%=
- shell_OpenWindowStatic(datgen%)
- Data1% Data1%=
- shell_OpenWindowStatic(datgen%)
- icon%=33
- Data2%
- Data1%
- shell_OpenWindowDynamic("Message","","")
- dd%=
- :rn%=
- Data1%
- Data2% Data2%=
- shell_OpenWindowStatic(datgen%)
- Data1% Data1%=
- shell_OpenWindowStatic(datgen%)
- icon%=66
- shell_WindowIsOpen(data1%) =
- shell_OpenWindowStatic(data1%)
- shell_CloseWindow(data1%)
- icon%=67
- shell_WindowIsOpen(data2%) =
- shell_OpenWindowStatic(data2%)
- shell_CloseWindow(data2%)
- _ClickSelect_datin(wh%,icon%)
- icon%
- select
- _Re(blk%)
- shell_OpenWindowStatic(chart%)
- _Sd(wh%,icon%)
- Data1%
- Data2%
- shell_IconPutData(sd%,3,
- shell_IconGetData(mainw%,58),
- shell_IconPutData(sd%,12,
- shell_IconGetData(mainw%,59),
- stats1
- shell_IconPutData(sd%,6,
- (mean),
- shell_IconPutData(sd%,7,
- (sd),
- shell_IconPutData(sd%,8,
- (num%),
- ! mean1=mean:sd1=sd:num1%=num%
- stats2
- shell_IconPutData(sd%,15,
- (mean),
- shell_IconPutData(sd%,16,
- (sd),
- shell_IconPutData(sd%,17,
- (num%),
- ! mean2=mean:sd2=sd:num2%=num%
- dfind
- shell_IconPutData(sd%,19,
- (f%),
- table
- signif
- shell_OpenWindowStatic(sd%)
- shell_IconPutData(loaded%,1,"Not enough files!",
- shell_OpenWindowDynamic("Message","","")
- _ClickSelect_datgen(wh%,icon%)
- icon%
- 2dice :dd%=
- rand :rn%=
- _Fr1(wh%,icon%)
- stats1
- Cr%=(max-min)/20:
- :r%+=1:
- r%=20
- r%=15
- r%=10
- )base%=min:
- : base%-=1 :
- base%
- r%=0
- 2topbase%=max:
- : topbase%+=1 :
- topbase%
- r%=0
- shell_IconPutData(fr%,4,
- (min),
- shell_IconPutData(fr%,5,
- (max),
- shell_IconPutData(fr%,9,
- (r%),
- shell_IconPutData(fr%,10,
- (base%),
- shell_IconPutData(fr%,11,
- (topbase%),
- _ClickSelect_Fr(wh%,icon%)
- icon%
- ) catra%=
- shell_IconGetData(fr%,9))
- ( base%=
- shell_IconGetData(fr%,10))
- + topbase%=
- shell_IconGetData(fr%,11))
- FreqDist
- _Pa(wh%,icon%)
- stats1
- shell_OpenWindowStatic(inf%)
- _Pa2(wh%,icon%)
- stats2
- shell_OpenWindowStatic(inf%)
- _D1(wh%,icon%)
- fil%=1
- &fil$=
- shell_IconGetData(mainw%,58)
- shell_IconPutData(xfer%,1,fil$,
- _D2(wh%,icon%)
- fil%=2
- &fil$=
- shell_IconGetData(mainw%,59)
- shell_IconPutData(xfer%,1,fil$,
- _D3(wh%,icon%)
- fil%=3
- fil$="Histograms"
- shell_IconPutData(xfer%,1,fil$,
- _D4(wh%,icon%)
- fil$="Histogram"
- _MenuSelect_Quit(blk%)
- _closedown%=
- _dosave(fil$)
- fil%=1
- save1(fil$)
- fil%=2
- save2(fil$)
- fil%=3
- save3(fil$)
- _dosavedr(fil$)
- save4(fil$)
- save1(file$)
- file$
- :A%+=1
- %, dat1$(A%)=
- shell_IconGetData(data1%,A%)
- & B%=0
- B%+=1
- )( dat=
- dat1$(A%),B%,
- (dat1$(A%))))
- dat >03
- #X%,dat
- (dat1$(A%))+1
- #X%,13
- A%=num%
- ("SetType "+file$+" &DFE")
- save2(file$)
- file$
- :A%+=1
- 6, dat1$(A%)=
- shell_IconGetData(data1%,A%)
- 7 B%=0
- B%+=1
- :( dat=
- dat2$(A%),B%,
- (dat2$(A%))))
- dat >03
- #X%,dat
- (dat2$(A%))+1
- #X%,13
- A%=num%
- ("SetType "+file$+" &DFE")
- save3(file$)
- file$
- :A%+=1
- G B%=0
- #X%,34
- :B%+=1
- J) dat$=
- shell_IconGetData(data3%,A%)
- dat=
- dat$,B%,
- (dat$)))
- dat >03
- #X%,dat
- (dat$)+1
- #X%,34
- #X%,44
- B%=0
- :B%+=1
- R, dat$=
- shell_IconGetData(data3%,A%+20)
- dat=
- dat$,B%,
- (dat$)))
- dat >03
- #X%,dat
- (dat$)+1
- #X%,13
- A%=ni%
- ("SetType "+file$+" &DFE")
- save4(file$)
- shell_DrawSaveFile(buffer%,file$)
- _CSVload(addr%,filetype%,fil$,s%)
- shell_IconPutData(loaded%,1,"2 files already loaded!",
- Data2%
- Data1%
- shell_OpenWindowDynamic("Message","","")
- Data1%
- Data2% Data2%=
- CSV2Load
- Data1% Data1%=
- CSVLoad
- CSVLoad
- shell_WindowIsOpen(mainw%)=
- shell_OpenWindowStatic(mainw%)
- "Hourglass_On"
- fil$
- A%=1 :maxlength%=0
- :dat1$(A%)=""
- A$=
- (02) dat1$(A%)=dat1$(A%)+A$
- (13)
- (10)
- (dat1$(A%))>maxlength% maxlength%=
- (dat1$(A%))
- (13)
- (10) A%+=1
- t A%-=1
- num%=A%
- shell_WindowResize(data1%,10,-20,300,60+(num%*60),
- A%=1
- num%
- yk icon%=
- shell_IconCreate(data1%,30,((num%-A%)*60),250,54,7,0,&17000119,"",adr1%+maxlength%*A%,12,"B3")
- shell_IconPutData(data1%,icon%,dat1$(A%),
- shell_WindowScrollTo(data1%,0,61*num%)
- shell_IconPutData(mainw%,58,
- shell_Leaf(fil$),
- shell_WindowRetitle(data1%,
- shell_Leaf(fil$))
- shell_OpenWindowStatic(data1%)
- shell_IconPutData(xfer%,1,
- shell_Leaf(fil$),
- "Hourglass_Off"
- CSV2Load
- shell_WindowIsOpen(mainw%)=
- shell_OpenWindowStatic(mainw%)
- "Hourglass_On"
- fil$
- A%=1 :maxlength%=0
- :dat2$(A%)=""
- A$=
- (02) dat2$(A%)=dat2$(A%)+A$
- (13)
- (10)
- (dat2$(A%))>maxlength% maxlength%=
- (dat2$(A%))
- (13)
- (10) A%+=1
- A%-=1
- num%=A%
- shell_WindowResize(data2%,10,-20,300,60+(num%*60),
- A%=1
- num%
- j icon%=
- shell_IconCreate(data2%,30,((num%-A%)*60),250,54,7,0,&17000119,"",adr2%+maxlength%*A%,12,"B3")
- shell_IconPutData(data2%,icon%,dat2$(A%),
- shell_WindowScrollTo(data2%,0,61*num%)
- shell_IconPutData(mainw%,59,
- shell_Leaf(fil$),
- shell_WindowRetitle(data2%,
- shell_Leaf(fil$))
- shell_OpenWindowStatic(data2%)
- "Hourglass_Off"
- shell_IconPutData(xfer%,1,
- shell_Leaf(fil$),
- select
- * num%=
- shell_IconGetData(datin%,3))
- + fil$=
- shell_IconGetData(datin%,5)
- "Hourglass_On"
- Data1%
- Data2%
- shell_WindowResize(data1%,10,-20,300,60+(num%*60),
- A%=1
- num%
- c icon%=
- shell_IconCreate(data1%,30,((num%-A%)*60),250,54,7,0,&1701F119,"",adr1%+12*A%,12,"B3")
- shell_IconPutData(data1%,icon%,"",
- shell_WindowScrollTo(data1%,0,61*num%)
- shell_IconPutData(mainw%,58,
- shell_Leaf(fil$),
- shell_WindowRetitle(data1%,
- shell_Leaf(fil$))
- shell_OpenWindowStatic(data1%)
- Data2%
- Data1%
- shell_WindowResize(data2%,10,-20,300,60+(num%*60),
- A%=1
- num%
- c icon%=
- shell_IconCreate(data2%,30,((num%-A%)*60),250,54,7,0,&1701F119,"",adr2%+12*A%,12,"B3")
- shell_IconPutData(data2%,icon%,"",
- shell_WindowScrollTo(data2%,0,61*num%)
- shell_IconPutData(mainw%,59,
- shell_Leaf(fil$),
- shell_WindowRetitle(data2%,
- shell_Leaf(fil$))
- shell_OpenWindowStatic(data2%)
- shell_CloseWindow(datin%)
- "Hourglass_Off"
- shell_IconPutData(xfer%,1,
- shell_Leaf(fil$),
- 2dice
- "Hourglass_On"
- &fil$=
- shell_MessageNoArgs("2dice")
- shell_IconGetData(datgen%,3))
- shell_IconGetData(datgen%,2)):num%=N
- Data1%
- Data2%
- shell_WindowResize(data1%,10,-20,300,60+(N*60),
- A%=1
- shell_IconDelete2(data1%,A%)
- c icon%=
- shell_IconCreate(data1%,30,((num%-A%)*60),250,54,7,0,&17000119,"",adr1%+A%*12,12,"B3")
- + dat1$(A%)=
- (M)+0.5)/2))+
- A%=1
- shell_IconPutData(data1%,N+1-A%,dat1$(A%),
- shell_WindowRetitle(data1%,
- shell_MessageNoArgs("2dice"))
- shell_IconPutData(mainw%,58,
- shell_Leaf(fil$),
- shell_CloseWindow(datgen%)
- shell_WindowScrollTo(data1%,0,61*N)
- shell_OpenWindowStatic(data1%)
- Data2%
- shell_WindowResize(data2%,10,-20,300,60+(N*60),
- A%=1
- shell_IconDelete2(data2%,A%)
- c icon%=
- shell_IconCreate(data2%,30,((num%-A%)*60),250,54,7,0,&17000119,"",adr2%+A%*12,12,"B3")
- + dat2$(A%)=
- (M)+0.5)/2))+
- A%=1
- shell_IconPutData(data2%,N+1-A%,dat2$(A%),
- shell_WindowRetitle(data2%,
- shell_MessageNoArgs("2dice"))
- shell_IconPutData(mainw%,59,
- shell_Leaf(fil$),
- shell_CloseWindow(datgen%)
- shell_WindowScrollTo(data2%,0,61*N)
- shell_OpenWindowStatic(data2%)
- shell_IconPutData(xfer%,1,
- shell_Leaf(fil$),
- num%=N
- "Hourglass_Off"
- "Hourglass_On"
- %fil$=
- shell_MessageNoArgs("Rand")
- shell_IconGetData(datgen%,3))
- shell_IconGetData(datgen%,2))
- num%=N
- Data1%
- Data2%
- shell_WindowResize(data1%,10,-20,300,60+(N*60),
- A%=1
- shell_IconDelete2(data1%,A%)
- c icon%=
- shell_IconCreate(data1%,30,((num%-A%)*60),250,54,7,0,&17000119,"",adr1%+A%*12,12,"B3")
- dat1$(A%)=
- (M)))+
- A%=1
- shell_IconPutData(data1%,N+1-A%,dat1$(A%),
- shell_WindowRetitle(data1%,
- shell_MessageNoArgs("Rand"))
- shell_IconPutData(mainw%,58,
- shell_Leaf(fil$),
- shell_CloseWindow(datgen%)
- shell_WindowScrollTo(data1%,0,61*N)
- shell_OpenWindowStatic(data1%)
- Data2%
- shell_WindowResize(data2%,10,-20,300,60+(N*60),
- A%=1
- shell_IconDelete2(data2%,A%)
- c icon%=
- shell_IconCreate(data2%,30,((num%-A%)*60),250,54,7,0,&17000119,"",adr2%+A%*12,12,"B3")
- dat2$(A%)=
- (M)))+
- A%=1
- shell_IconPutData(data2%,N+1-A%,dat2$(A%),
- shell_WindowRetitle(data2%,
- shell_MessageNoArgs("Rand"))
- shell_IconPutData(mainw%,59,
- shell_Leaf(fil$),
- shell_CloseWindow(datgen%)
- shell_WindowScrollTo(data2%,0,61*N)
- shell_OpenWindowStatic(data2%)
- shell_IconPutData(xfer%,1,
- shell_Leaf(fil$),
- num%=N
- "Hourglass_Off"
- stats1
- shell_WindowRetitle(inf%,
- shell_MessageNoArgs("Paramaters ")+
- shell_IconGetData(mainw%,58))
- shell_WindowRetitle(fr%,
- shell_MessageNoArgs("Freq"))
- 2sum=0:A%=0:min=9999999:max=0:mean=0:num%=0:X=0
- (num%=
- shell_IconGetData(datin%,3))
- :A%+=1
- , dat1$(A%)=
- shell_IconGetData(data1%,A%)
- (dat1$(A%))>max max=
- (dat1$(A%))
- (dat1$(A%))<min
- dat1$(A%)>"" min=
- (dat1$(A%))
- sum=sum+
- (dat1$(A%))
- dat1$(A%)="":A%-=1
- 0num%=A%:
- shell_IconPutData(inf%,3,
- (num%),
- num%=0 mean=0:min=0
- mean=sum/num%
- :A%+=1
- (dat1$(A%))
- sd(Q)
- A%=num%:A%=0
- shell_IconPutData(inf%,4,
- (mean),
- shell_IconPutData(inf%,6,
- (min),
- shell_IconPutData(inf%,8,
- (max),
- shell_IconPutData(inf%,10,
- (max-min),
- +>median=(max+min)/2:
- shell_IconPutData(inf%,12,
- (median),
- ,5mode=
- _Mode:
- shell_IconPutData(inf%,14,
- (mode),
- shell_IconPutData(inf%,16,
- (sd),
- stats2
- shell_WindowRetitle(inf%,
- shell_MessageNoArgs("Paramaters")+" "+
- shell_IconGetData(mainw%,59))
- 22sum=0:A%=0:min=9999999:max=0:mean=0:num%=0:X=0
- :A%+=1
- 4, dat2$(A%)=
- shell_IconGetData(data2%,A%)
- (dat2$(A%))>max max=
- (dat2$(A%))
- (dat2$(A%))<min
- dat2$(A%)>"" min=
- (dat2$(A%))
- sum=sum+
- (dat2$(A%))
- dat2$(A%)="":A%-=1
- 90num%=A%:
- shell_IconPutData(inf%,3,
- (num%),
- num%=0 mean=0:min=0
- mean=sum/num%
- :A%+=1
- (dat2$(A%))
- sd(Q)
- A%=num%:A%=0
- shell_IconPutData(inf%,4,
- (mean),
- shell_IconPutData(inf%,6,
- (min),
- shell_IconPutData(inf%,8,
- (max),
- shell_IconPutData(inf%,10,
- (max-min),
- D>median=(max+min)/2:
- shell_IconPutData(inf%,12,
- (median),
- E5mode=
- _Mode:
- shell_IconPutData(inf%,14,
- (mode),
- shell_IconPutData(inf%,16,
- (sd),
- _Mode
- J'catra%=1:base%=min+1:topbase%=max+1
- base%-=1
- base%
- catra%=0
- topbase%-=1
- topbase%
- catra%=0
- Q,ni%=(topbase%-base%)/(catra%) :cat%(0)=0
- J%=1
- ni%:cat%(J%)=0
- I%=1
- num%
- (dat1$(I%)) > base%+(J%-1)*catra%
- (dat1$(I%)) <= base%+J%*catra% cat%(J%)=cat%(J%)+1
- cat%(J%)>cat cat = cat%(J%):mode=J%+1
- X =mode
- FreqDist
- "Hourglass_On"
- base%+=1:topbase%+=catra%
- base%-=1
- base%
- catra%=0
- topbase%-=1
- topbase%
- catra%=0
- c!ni%=(topbase%-base%)/(catra%)
- A%=2
- shell_IconPutData(data3%,A%,"",
- shell_WindowScrollTo(data3%,0,61*ni%)
- shell_OpenWindowStatic(data3%)
- catmax%=0
- J% = 1
- cat%(0)=0:cat%(J%)=0
- I%=1
- num%
- (dat1$(I%))>base%+(J%-1)*catra%
- (dat1$(I%))<=base%+J%*catra%
- cat%(J%)=cat%(J%)+1
- cat%(J%)>catmax% catmax%=cat%(J%)
- r? word$(J%)=
- (base%+(J%-1)*catra%)+" to "+
- (base%+J%*catra%)
- shell_IconPutData(data3%,J%+1,word$(J%),
- shell_IconPutData(data3%,21+J%,
- (cat%(J%)),
- shell_WindowRetitle(data3%,
- shell_MessageNoArgs("Frequ"))
- w'fil$=
- shell_MessageNoArgs("Freque")
- shell_IconPutData(xfer%,1,fil$,
- shell_IconPutData(xferd%,1,fil$,
- "Hourglass_Off"
- shell_OpenWindowStatic(data3%)
- sd(Q)
- X=X+((mean-Q)*(mean-Q))
- (X/num%)
- sdplot
- shell_DrawStartGroup(buffer%,"")
- shell_DrawSetPathColour(buffer%,0,0,200)
- x%=560:y%=860
- FOR A=0.2 TO 4.2 STEP 0.2
- ra%=mean-base%
- 7 a%=(ra%+A)*560/ra%:b%=80+(780*
- ((-A*A)/(2*sd*sd)))
- shell_DrawLine(buffer%,x%,y%,a%,b%)
- 7 x%=(ra%+A)*560/ra%:y%=80+(780*
- ((-A*A)/(2*sd*sd)))
- x%=560:y%=860
- 7 a%=(ra%-A)*560/ra%:b%=80+(780*
- ((-A*A)/(2*sd*sd)))
- shell_DrawLine(buffer%,x%,y%,a%,b%)
- 7 x%=(ra%-A)*560/ra%:y%=80+(780*
- ((-A*A)/(2*sd*sd)))
- shell_DrawSetPathColour(buffer%,0,0,0)
- shell_DrawEndGroup(buffer%)
- buffer% = 0
- shell_DrawCreateFile(buffer%)
- shell_DrawSetPathWidth(buffer%,0.05)
- shell_DrawSetScale(buffer%,1,1)
- shell_DrawSetUnitsOS(buffer%)
- shell_DrawInitFont(buffer%,"Homerton.Bold")
- shell_DrawSetFont(buffer%,"Homerton.Bold")
- shell_DrawStartGroup(buffer%,"")
- I%=1
- shell_DrawSetFillColour(buffer%,160,160,160)
- shell_DrawBox(buffer%,80+(I%-1)*1000/ni%,40,1000/ni%,cat%(I%)*800/catmax%)
- shell_DrawSetFillColour(buffer%,0,0,0)
- shell_DrawOutlineFont(buffer%,word$(I%),8,8,100+(I%-1)*1000/ni%,2)
- catmax%<20 step%=1
- catmax%>20
- A%<100 step%=5
- catmax%>1000 step%=10
- A%=0
- catmax%
- step%
- shell_DrawOutlineFont(buffer%,
- (A%),8,8,40,40+(A%*800)/catmax%)
- shell_DrawEndGroup(buffer%)
- sdplot
- dfind
- 4d=(mean1-mean2)/(
- ((sd1^2/num1%)+(sd2^2/num2%)))
- 1u=(sd1^2/num1%)/((sd1^2/num1%)+(sd2^2/num2%))
- *fr=(u^2/(num1%-1))+((1-u)^2/(num2%-1))
- (1/fr)
- signif
- d <T(f%,0)
- shell_IconPutData(sd%,20,"There is no significant difference",
- B%=0
- A%=0
- d >T(f%,A%)
- B%=A%+1
- B%=1 M$="90%"
- B%=2 M$="95%"
- B%=3 M$="98%"
- B%=4 M$="99%"
- B%=5 M$="99.8%"
- B%=6 M$="99.9%"
- shell_IconPutData(sd%,20,"Difference is significant within "+M$+" limits",
- table
- M%=0
- N%=0
- T(M%,N%)=V
- _UserRedraw_Mainw(blk%,x%,y%)
- scl,xpos,ypos,width,height,yorg,xorg
- !_Q%=chart%
- "Wimp_GetWindowInfo",,_Q%
- MinX% =_Q%!4
- MinY% =_Q%!8
- MaxX% =_Q%!12
- MaxY% =_Q%!16
- ScrX% =_Q%!20
- ScrY% =_Q%!24
- Miwx% =_Q%!44
- Miwy% =_Q%!48
- Mawx% =_Q%!52
- Mawy% =_Q%!56
- shell_DrawRenderFile(buffer%,MinX%-ScrX%,MaxY%-ScrY%+Miwy%,blk%,
- 6.314,12.71,31.82,63.66,318.3,636.6,2.920,4.303,6.965,9.925,22.33,31.6,2.353,3.182,4.541,5.841,10.21,12.92,2.132,2.776,3.747,4.604,7.173,8.61,2.015,2.571,3.365,4.032,5.893,6.896
- 1.943,2.447,3.143,3.707,5.208,5.959,1.895,2.365,2.998,3.499,4.785,5.408,1.860,2.306,2.896,3.355,4.501,5.041,1.833,2.262,2.821,3.250,4.297,4.781,1.812,2.228,2.764,3.169,4.144,4.587
- 1.796,2.201,2.718,3.106,4.025,4.437,1.782,2.179,2.681,3.055,3.93,4.318,1.771,2.16,2.650,3.012,3.852,4.221,1.761,2.145,2.624,2.977,3.787,4.140,1.753,2.131,2.602,2.947,3.733,4.073
- 1.746,2.120,2.583,2.921,3.686,4.015,1.740,2.110,2.567,2.898,3.646,3.965,1.734,2.101,2.552,2.878,3.610,3.922,1.729,2.093,2.539,2.861,3.579,3.883,1.725,2.086,2.528,2.845,3.552,3.850
- 1.721,2.080,2.518,2.831,3.527,3.819,1.717,2.074,2.508,2.819,3.505,3.792,1.714,2.069,2.5,2.807,3.485,3.767,1.711,2.064,2.492,2.797,3.467,3.745,1.708,2.060,2.485,2.787,3.450,3.725
- 1.706,2.056,2.479,2.779,3.435,3.707,1.703,2.052,2.473,2.771,3.421,3.690,1.701,2.048,2.467,2.763,3.408,3.674,1.699,2.045,2.462,2.756,3.396,3.659,1.697,2.042,2.457,2.750,3.385,3.646
-